home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / COMMUNIC / MRUN211.ZIP / MRUN211E.WAS < prev    next >
Text File  |  1993-05-01  |  20KB  |  745 lines
  1. ;MailRun v2.11:  Part E, addulfile
  2. ;1992-1993 Gerald P. Sully, all rights reserved.
  3.  
  4. #comment
  5. **************************************************************************
  6. **************************************************************************
  7. * 
  8. * This file contains routines related to adding a "Upload File"
  9. * item to a mailrun.  It puts up the Upload Files dialog box,
  10. * which displays the contents of the available files index (the
  11. * *.udx file for the mailrun).  When a file is selected from the 
  12. * list, a detailed description is displayed from the *.ubf file 
  13. * for the mailrun).
  14. * 
  15. **************************************************************************
  16. **************************************************************************
  17. #endcomment
  18.  
  19. #define MRUN211E
  20. #define MRUN211DE
  21.  
  22. #include "mrun211.h"
  23.  
  24. string DXFileTabs, OldUDX, OldUBF, MRunUDX, MRunUBF, LastChoice
  25. string UploadDir, DownloadDir, BBSChoice
  26. integer InULDir, ULSortField
  27.  
  28. #comment
  29. *********************************************************************
  30. * 
  31. * MAIN()
  32. * 
  33. * Calls checkchild(), updateudx(), interfaceon(), getnewdesc(),
  34. * getulfiles(), checkchanged(), getlastitem(), gettaskstring(), 
  35. * clearfiledesc(), makebbslist(), ulfilebox(), insertulfile(), 
  36. * delulfile(), menudim(), makefullname(), sortidx(), checkfile()
  37. * 
  38. * Adds a SendFile item to the mailrun.  An feditbox is
  39. * used to display the file description in order to take
  40. * advantage of wordwrap.  The flistbox displays the
  41. * contents of MAILRUN.UDX, which contains information on
  42. * any file downloaded by MailRun, plus additional files
  43. * found in the upload directory.  A file description must
  44. * be at least 6 characters, but may be as long as needed.
  45. * 
  46. *********************************************************************
  47. #endcomment
  48.  
  49. proc main
  50. string FullFileName, char, temp
  51. integer dialogstatus
  52. integer j, InUDX
  53.     menudim()
  54.     checkchild()
  55.     findfirst MailRun
  56.     MailRunTrunc = $FILENAME
  57.     DXFileTabs = "58,92,130,305,315,319,322,325,328"
  58.     profilerd MailRun "MailRun" "UploadDir" UploadDir
  59.     profilerd MailRun "MailRun" "DownloadDir" DownloadDir
  60.     profilerd MailRun "MailRun" "ULSortField" ULSortField
  61.     strextract BBSChoice TaskItem "`t" 3
  62.     strextract char TaskItem "`t" 4
  63.     atoi char j
  64.     FileDesc = makefullname(TempDir, "DESC.TMP")
  65.     OldUDX = makefullname(TempDir, "OLDUDX.TMP")
  66.     OldUBF = makefullname(TempDir, "OLDUBF.TMP")
  67.     MRunUDX = makefullname(MailRunDir, "MAILRUN.UDX")
  68.     MRunUBF = makefullname(MailRunDir, "MAILRUN.UBF")
  69.     if isfile FileDesc
  70.         delfile FileDesc
  71.     endif
  72.     if not (checkfile(MRunUDX) && checkfile(MRUNUBF))
  73.         getulfiles()
  74.     endif
  75.     LastChoice = ""
  76.     FLAGS &= UNCHANGED
  77.     interfaceon()
  78.     makebbslist()
  79.     ulfilebox()
  80.     dialogstatus = $DIALOG
  81.     while dialogstatus != 1
  82.         switch dialogstatus
  83.             case 10
  84.                 ;User selected "Add"
  85.                 insertulfile(&j)
  86.                 TaskItem = gettaskstring(BBSChoice, j)
  87.             endcase
  88.             case 11
  89.                 ;User selected "Save"
  90.                 if FLAGS & CHANGED
  91.                     updateudx()
  92.                     FLAGS &= UNCHANGED
  93.                     updatedlg -1
  94.                 endif
  95.             endcase
  96.             case 12
  97.                 ;User selected "Delete"
  98.                 delulfile()
  99.             endcase
  100.             case 13
  101.                 ;User selected "Refresh"
  102.                 statmsg "Refreshing Uploads List from Upload Directory..."
  103.                 getulfiles()
  104.                 updatedlg -1
  105.                 statmsg ""
  106.             endcase
  107.             case 50
  108.                 ;User selected a sort radiobutton
  109.                 profilewr MailRun "MailRun" "ULSortField" ULSortField
  110.                 sortidx(MRunUDX, ULSortField)
  111.                 updatedlg 16
  112.             endcase
  113.             case 130
  114.                 ;User selected a file from the listbox
  115.                 if checkchanged()
  116.                     getnewdesc()
  117.                     updatedlg 137
  118.                 else
  119.                     FileChoice = LastChoice
  120.                     updatedlg 16
  121.                 endif
  122.             endcase
  123.             case 170
  124.                 ;User changed BBSs with the combobox
  125.                 j = getlastitem(BBSChoice)
  126.                 TaskItem = gettaskstring(BBSChoice, j)
  127.             endcase
  128.             case 230
  129.                 ;User entered a name in the File Name box
  130.                 FullFileName = makefullname(UploadDir, FileName)
  131.                 if isfile FullFileName
  132.                     InULDir = 1
  133.                 else
  134.                     InULDir = 0
  135.                 endif
  136.                 interfaceoff()
  137.                 openfile(MRunUDXFile, MRunUDX, _READWRITE, _TEXT)
  138.                 InUDX = checkudx(FileName)
  139.                 if InUDX
  140.                     fseek MRunUDXFile -100 1
  141.                     fgets MRunUDXFile FileChoice
  142.                     fgets MRunUDXFile FileChoice
  143.                     strextract temp FileChoice "`t" 0
  144.                     while not strcmpi temp FileName
  145.                         fgets MRunUDXFile FileChoice
  146.                         strextract temp FileChoice "`t" 0
  147.                     endwhile
  148.                 endif
  149.                 fclose MRunUDXFile
  150.                 interfaceon()
  151.                 if InUDX
  152.                     makedesc(MRunUBF)
  153.                 else                
  154.                     clearfiledesc()
  155.                 endif
  156.                 updatedlg -1
  157.             endcase
  158.             case 250
  159.                 ;User entered a file description
  160.                 if !(FLAGS & CHANGED)
  161.                     FLAGS |= CHANGED
  162.                 endif
  163.             endcase
  164.         endswitch
  165.         dialogstatus = $DIALOG
  166.     endwhile
  167. endproc
  168.  
  169.  
  170. #comment
  171. *********************************************************************
  172. * 
  173. * INSERTULFILE()
  174. * 
  175. * Called by main()
  176. * 
  177. * Calls openfile(), updateudx(), insertitem(),
  178. * interfaceon(), interfaceoff(), makefullname(), checkudx(),
  179. * clearfiledesc(), shortdesc()
  180. * 
  181. * Adds a SendFile item to the *.MRN file and the task list.
  182. * 
  183. *********************************************************************
  184. #endcomment
  185.  
  186. proc insertulfile
  187. intparm j
  188. string ULDescString, ULFileString, FullFileName
  189. string ULFileSpec, StatString, CopyboxMsg
  190. integer ULDescLength, Perm, Response, InUDX
  191.     interfaceoff()
  192.     if NULLSTR FileName
  193.         ;User hasn't selected a file
  194.         usermsg "You must select a file first."
  195.         return
  196.     endif
  197.     if InULDir == 0
  198.         strupr FileName
  199.         strfmt CopyBoxMsg \
  200.             "%s is not in the Upload Directory.`r`nCopy it now?" \
  201.             FileName
  202.         strlwr FileName
  203.         sdlgmsgbox "MailRun Message" CopyBoxMsg QUESTION \
  204.             OKCANCEL Response 1
  205.         switch Response
  206.             case 1
  207.                 ;User selected "OK"
  208.                 ULFileSpec = makefullname(DownloadDir, FileName)
  209.                 dir ULFileSpec FullFileName
  210.                 if NULLSTR FullFileName
  211.                     return
  212.                 endif
  213.                 if not isfile FullFileName
  214.                     sdlgmsgbox "MailRun Message" "No such file!" \
  215.                         EXCLAMATION OK Response 1
  216.                     return
  217.                 endif
  218.                 copyfile FullFileName UploadDir
  219.                 if not strcmpi ULFileSpec FullFileName
  220.                     ;if the user chose a file other than the one specified
  221.                     ;get the name of the file
  222.                     findfirst FullFileName
  223.                     FileName = $FILENAME
  224.                     strlwr FileName
  225.                     ;determine whether it is already in the uploads database
  226.                     openfile(MRunUDXFile, MRunUDX, _READWRITE, _TEXT)
  227.                     InUDX = checkudx(FileName)
  228.                     fclose MRunUDXFile
  229.                     if InUDX == 0
  230.                         ;if it isn't in the uploads database, put it there
  231.                         clearfiledesc()
  232.                         FLAGS |= CHANGED
  233.                         updateudx()
  234.                     endif
  235.                 endif
  236.                 InULDir = 1
  237.                 updatedlg -1
  238.             endcase
  239.             case 2
  240.                 ;User selected "Cancel"
  241.                 return
  242.             endcase
  243.         endswitch
  244.     endif
  245.     ;No description may be less than 6 characters
  246.     openfile(FileDescFile, FileDesc, _READWRITE, _NORMAL)
  247.     fread FileDescFile ULDescString 65 ULDescLength
  248.     fclose FileDescFile
  249.     if ULDescLength < 6
  250.         usermsg "Please enter a longer description."
  251.     elseif shortdesc(ULDescString, ULDescLength)
  252.         ;If everything is OK...
  253.         if FLAGS & CHANGED
  254.             ;Add the new description to the database
  255.             updateudx()
  256.             FLAGS &= UNCHANGED
  257.             updatedlg 16
  258.         endif
  259.         Perm = 2 - PermRadio
  260.         strupr FileName
  261.         strfmt ULFileString \
  262.             "1,%d,SendFile,%s,%s" Perm FileName Conf
  263.         strfmt StatString \
  264.             "Added to %s:  `"Upload %s to Conference %s`"" \
  265.             BBSChoice FileName Conf
  266.         j++
  267.         insertitem(BBSChoice, j, ULFileString)
  268.         strlwr FileName
  269.         statmsg StatString
  270.     endif
  271.     interfaceon()
  272. endproc
  273.  
  274.  
  275. #comment
  276. *********************************************************************
  277. * 
  278. * SHORTDESC()
  279. * 
  280. * Called by insertulfile()
  281. * 
  282. * Calls findstring()
  283. * 
  284. * If the current BBS type is WildCat! or RBBS, limits the 
  285. * upload description length to 60 or 45 characters,
  286. * respectively.  Gives user an opportunity to enter a new 
  287. * description if the current one is too long.
  288. * 
  289. *********************************************************************
  290. #endcomment
  291.  
  292. func shortdesc : integer
  293. strparm ULDescString
  294. intparm ULDescLength
  295. string ULMsg, TypeName
  296. integer Response, MaxL